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Abstract 



There are different notions of computation, the most popular being monads, applicative functors, 
and arrows. In this article we show that these three notions can be seen as monoids in a monoidal 
category. We demonstrate that at this level of abstraction one can obtain useful results which can be 
instantiated to the different notions of computation. In particular, we show how free constructions 
and Cayley representations for monoids translate into useful constructions for monads, applicative 
functors, and arrows. Moreover, the uniform presentation of all three notions helps in the analysis of 
the relation between them. 



> 

CO 
CN 

00 " 1 Introduction 

When constructing a semantic model of a system or when structuring computer code, 



there are several notions of computation that one might consider. Monads ( |Moggi, 1 989 



Moggi, 1 99 1 1 are the most popular notion, but other notions, such as arrows ( Hughes, 2000 ) 
and, more recently, applicative functors (McBride & Paterson, 2008 ) have been gaining 
widespread acceptance. 

. Each of these notions of computation has particular characteristics that makes them more 

5^ 1 suitable for some tasks than for others. Nevertheless, there is much to be gained from 

unifying all three different notions under a single conceptual framework. 

In this article we show how all three of these notions of computation can be cast as 
a monoid in a monoidal category. Monads are known to be monoids in a monoidal cate- 
gory of endofunctors (M ac Lane, 1971|[Barr & Wells, 19851 ). Moreover, strong monads are 
monoids in a monoidal category of strong endofunctors. Arrows have been recently shown 
to be strong monoids in a monoidal category of profunctors by Jacobs et al. (2009]). Ap- 
plicative functors, on the other hand, are usually presented as lax monoidal functors with a 
compatible strength ( |McBride & Paterson, 2008HJaskelioff & Rypacek, 2012"t|Paterson, 2012| >. 



However, in the category-theory community, it is known that lax monoidal functors are 
monoids with respect to the Day convolution, and hence applicative functors are also 
monoids in a monoidal category of endofunctors using the Day convolution as a ten- 



sor (Da>U973i. 



Therefore, we unify the analysis of three different notions of computation, namely mon- 
ads, applicative functors, and arrows, by looking at them as monoids in a monoidal cate- 
gory. In particular, we make explicit the relation between applicative functors and monoids 
with respect to the Day convolution, and we simplify the characterisation of arrows. Unlike 
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the approach to arrows of Jacobs et al. (2009), where the operation first is added on top of 
the monoid structure, we obtain that operation from the monoidal structure of the underly- 
ing category. Furthermore, we show that at the level of abstraction of monoidal categories 
one can obtain useful results, such as free constructions and Cayley representations. 

Free constructions are often used in programming in order to represent abstract syntax 
trees. For instance, free constructions are used to define deep embeddings of domain- 
specific languages. Traditionally, one uses a free monad to represent abstract syntax trees, 
with the bind operation (Kleisli extension) acting as a form of simultaneous substitution. 
However, in certain cases, the free applicative functor is a better fit ( Capriotti & Kaposi, 2014) . 



The free arrow, on the other hand, has been less explored and we know of no publication 
that has an implementation of it. 

The Cayley representation theorem states that every group is isomorphic to a group of 



permutations (Cayley, 1854 1. Hence, one can work with a concrete group of permutations 
instead of working with an abstract group. The representation theorem does not really 
use the inverse operation of groups so one can generalise the representation to monoids, 
yielding a Cayley representation theorem for monoids ( Jacobson, 2009). 

In functional programming, the Cayley theorem appears as an optimisation by change of 
representation. We identify two known optimisations, namely difference lists ( [Hughes, 1986| ), 
and the codensity monad transformation ( Voigtlander, 2008} |Hutton et al, 2010| as being 
essentially the same, since both are instances of the general Cayley representation of 
monoids in a monoidal category. Moreover, we obtain similar transformations for applica- 
tive functors and arrows by analysing their Cayley representations. 

Given the three notions of computation, one may ask what is the relation between them. 
Lindley et al. (1201 \\ address this question by studying the equational theories induced by 
each calculus. Since the different notions are monoids in a monoidal category, a categor- 
ical approach could be to ask about the relation between the corresponding categories of 
monoids. However, another consequence of having a unified view is that we can ask a 
deeper question instead and analyse the relation between the different monoidal categories 
that support them. Then, we obtain the relation between their monoids as a corollary. 

Concretely, the article makes the following contributions: 



• We present a unified view of monads, applicative functors, and arrows as monoids 
in a monoidal category. Although the results are known in other communities, the 
case of the applicative functors as monoids seems to have been overlooked in the 
functional programming community. 

• We show how the Cayley representation of monoids unifies two different known 
optimisations, namely difference lists and the codensity monad transformation. The 
similarity between these two optimisations has been noticed before, but now we 
make the relation precise and demonstrate that they are two instances of the same 
change of representation. 

• We apply the characterisation of applicative functors as monoids to obtain a free 
construction and a Cayley representation for applicative functors. In this way, we 
clarify the construction of free applicative functors as explained by Capriotti and 
Kaposi (120141 ). The Cayley representation for applicative functors is entirely new. 
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• We clarify the view of arrows as monoids by introducing the strength in the monoidal 
category. In previous approaches, the strength was added to the monoids, while in 
this article we consider a category with strong profunctors. Our approach leads to a 
new categorical model of arrows and to the first formulation of free arrows. 

• We analyse the relation between the monoidal categories that give rise to monads, 
applicative functors, and arrows, by constructing monoidal functors between them. 

The rest of the article is structured as follows. In Section 11.11 we introduce the Cay- 
ley representation for ordinary monoids. In Section |2] we introduce monoidal categories, 
monoids, free monoids and the Cayley representation for monoids in a monoidal category. 
In Section [3] we instantiate these constructions to a category of endofunctors, with com- 
position as a tensor and obtain monads, free monads, and the Cayley representation for 
monads. In Section [5] we do the same for applicative functors. Before that, we introduce 
in Section [4] the notions of ends and coends needed to define and work with the Day 
convolution. In Section [6] we work in a category of Profunctors to obtain pre-arrows, 
their free constructions, and their Cayley representations. In section [JJ we turn to arrows, 
analyse the relation between arrows and pre-arrows, and construct free arrows and an arrow 
representation. Finally, in section[8] we analyse the relation between the different monoidal 
categories considered in the previous sections, and conclude in Section[9] 

The article is aimed at functional programmers with knowledge of basic category theory 
concepts, such as categories, functors, and adjunctions. We provide an introduction to more 
advanced concepts, such as monoidal categories and ends. 



In frames like the one surrounding this paragraph, we include Haskell 
implementations of several of the categorical concepts of the article. The idea is not 
to formalise these concepts in Haskell, but rather to show how the category theory 
informs and guides the implementation. 



1.1 Cayley representation for monoids 

We start by stating the Cayley representation theorem for ordinary monoids, i.e. monoids 
in the category of sets and functions Set. A monoid is a triple (M, ®,e) of a set M, a 
binary operation ®:MxM->M which is associative ((a © b) © c = a © (b © c)), and an 
element e e M which is a left and right identity with respect to the binary operation (i.e. 
effia = a = a©e.) Because of the obvious monoid (N, ■, 1), the element e and the binary 
operation © are often called the unit and multiplication of the monoid. 

For every set M we may construct the monoid of endomorphisms (M — > M, o, id), where 
o is function composition and id is the identity function. 

Up to an isomorphism, M is a sub-monoid of a monoid (M 1 , ©', e 1 ) if there is an injection 
i: M ^ M' such that /(e) = e' and i{a®b) = i(a) ©' i(b) for some © and e. This makes 
(M, ffi,e) a monoid and i a monoid morphism. 

Theorem 1.1 {Cayley representation for (Set) monoids) 

Every monoid (M, ffi,e) is a sub-monoid of the monoid of endomorphisms on M. 
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Proof We construct an injection rep : M — > (M —> M) by currying the binary operation 

rep(m) = Xm .m®m . 

The function rep is a monoid morphism: 

rep(e) = Xm 1 .e®m! 
= id 

rep(a ®b) = Xm . {a®b)® m' 
= Xm ' .a®(b®m!) 
= (Xm.a ©m) o (Xn.b ®n) 
= rep(a) o rep(fe) 

Moreover, rep is an injection, since we have a function abs : (M — > M) — > M given by 

abs(fc) =k(e) 
and, abs(rep(m)) = (Xm 1 .m © m') e — m®e = m. 



□ 



When M lifts to a group (i.e. it has a compatible inverse operation), then the monoid of 
endomorphisms on M lifts to the traditional Cayley representation of a group M. 



How can we use this theorem in Haskell? Lists are monoids ([«],-(+,[]) so we may 
apply Theorem ll.il Let us define a type synonym for the monoid of endomorphisms: 

type EList a = [a] —> [a] 

The functions rep and abs are 

rep :: [a] — > Elist a 
repxs = (xs-H-) 

abs :: Elist a — > [a] 
absxs =xs [] 

By the theorem above, we have that abs o rep = id. The type Elist a is no other 



than difference lists! (Hughes, 1986 1. Concatenation for standard lists is slow, as 
it is linear on the first argument. A well known solution is to use a different 
representation of lists: the so-called "difference lists" or "Hughes' lists", in which 
lists are represented by endofunctions of lists. In difference lists, concatenation is 
just function composition, and the empty list is the identity function. Hence we can 
perform efficient concatenations on difference lists, and when we are done we can get 
back standard lists by applying the empty list. 



2 Monoidal Categories 

The ordinary notion of monoid in the category Set of sets and functions is too restrictive, so 
we are interested in generalising monoids to other categories. In order to express a monoid 
a category should have a notion of 
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1. a pairing operation for expressing the type of the multiplication, 

2. and a type for expressing the unit. 

In Set (in fact, in any category with finite products), we may define a binary operation 
on X as a function X x X — > X, and the unit as a morphism 1 — > X. However, a given 
category may not have finite products, or we may be interested in other monoidal 
structure of ^ ', so we will be more general and abstract the product by a <g> operation 
called a tensor, and the unit 1 by an object / of ff. Categories with a tensor (g and unit / 
have the necessary structure for supporting an abstract notion of monoid and are known as 
monoidal categories. 

Definition 2.1 {Monoidal Category) 

A monoidal category is a tuple (g,7, a,X,p), consisting of 

• a category % ', 

• a bifunctor ®: ^ x ^ -»■ 

• an object 7 of c €, 

• natural isomorphisms a A} B,c '■ A (g (73 ® C) — ► (A (g 7?) ® C , Xa '■ 7 ® A — > A , and 
p,4 : A (g) / — > A such that A/ = p/ and the following diagrams commute. 



A®(B®(C®D)) 



(A ® B) ® (C (g D) 



((A®£)®C) ®D 



id®a 



a; id 



A® ((5(8C) <g>23) 



(A® (B(g)C)) ®D 



(7(8)5 




(A (g) 7) (gi B 



A monoidal category is said to be strict when the natural isomorphisms a, X and p are 
identities. Note that in a strict monoidal category the diagrams necessarily commute. 

A symmetric monoidal category, is a monoidal category with an additional natural iso- 
morphism Ya.b '■ A (g B — > B <g A subject to some coherence conditions. 

The idea of currying a function can be generalised to a monoidal category with the 
following notion of exponential. 

Definition 2.2 (Exponential) 

Let A be an object of a monoidal category ( ! ^ 7 , (g),7,a, X,p). An exponential — A is the right 
adjoint to — <g A. That is, the exponential to A is characterised by an isomorphism 

L-J :^{X®A,B) = ^{X,B A ) : [-] 

natural in X and B. We call the counit of the adjunction ev^ = \\d B A~\ : B A <g> A — >• the 
evaluation morphism of the exponential. When the exponential to A exists, we say that 
A is an exponent. When the exponential exists for every object we say that the monoidal 
category has exponentials or that it is a right-closed monoidal category. 



The next lemmata will be used in the proofs that follow. 
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Lemma 2.3 

Let A,B,C be objects of a monoidal category ®,7, a,X,p), such that the exponential 
— A exists. For every / :B®A->C, we have 

evo([/J ®id)=/ 

Lemma 2.4 

Let A, B,C,D be objects of a monoidal category ('if, ®,7, a,A,p), such that the exponential 
— c exists. For every / : B ® C — > D and g : A — > B, we have 

L/o(g®id)j = L/J°g 



2.7 Monoids in Monoidal Categories 

With the definition of monoidal category in place we may define a monoid in such a 
category. 

Definition 2.5 {Monoid) 

A monoid in a monoidal category <&,/, a,A,p) is a tuple (M,m,e) where Me? and 
f7? and e are morphisms in ? 



/ — —5- M - 

such that the following diagrams commute. 

m®id 



■M®M 



(M®M)®M- 



M®(M®M) 



■M®M M®M 

fSid 



id :e 



■M®M ■ 



M 



I (g>M 




f 

A monoid homomorphism is an arrow M\ *-M2 in % J such that the diagrams 

m i 

. Mi -< Mi ® Mi 




commute. 

In the same manner that A* (the words on A) is the free monoid on a set A, we can define 
the notion of free monoid in terms of monoidal categories. 

Definition 2.6 (Free Monoid) 

Let (^(gij/jGljAjP) be a monoidal category. The free monoid on an object X in ? is 
a monoid (F^iip^f) together with a morphism ins : X — > F such that for any monoid 
(G,otg,<?g) and any morphism / . X — s> G, there exists a unique monoid homomorphism 
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free / : F — >• G that makes the following diagram commute. 




The morphism ins is called the insertion of generators into the free monoid. 

Monoids in a monoidal category c & and monoid homomorphisms form the category 
Mon(^). When the left-adjoint (-)* to the forgetful functor U : Mon(^) -> c € exists, it 
maps an object X to the free monoid on X. There are several conditions that guarantee the 
existence of free monoids ( |Dubuc, 1974[ Kelly, 1980 |Lack, 20l0| ). Of particular impor- 



tance to us is the following: 
Proposition 2. 7 

Let (if, (g),/, a, A,p) be a monoidal category with exponentials. If If has binary coprod- 
ucts, and for each A <E *<? the initial algebra for the endofunctor / + A ® — exists, then the 
monoid A* exists and its carrier is given by fiX. I + A<E>X. 



Proof A multiplication on A* has the form m : A* <g> A* — > A*. By definition 12.21 it is 
equivalent to define a morphism A* — > A* A , and then use [~— ] to get m. Exploiting the 
universal property of initial algebras, we define such morphism by providing and algebra 
I+A <g>A* A * -^A* A * given b>(j [[A A *J , [8 o inro (id ® ev) o «J] where 5 :/+A®A* =A* 
is the initial algebra structure over A*. 
The monoid structure on A* is then 

e = 8 o inl 

m= [d[[A A *J, [5oinro(id ® ev)oaJ]D] 



where the banana brackets (| — D denote the universal morphism from an initial algebra ( Meijer et ah, 1991 1 

The insertion of generators and the universal morphism from the free monoid to the 
monoid {G,mc,ec) for / : A — > G are: 

ins = 8o inro (id ® e) op -1 
free/=(|[e G ,m G o(/<g)id)]D 



It is well known that the free monoid over a set A is the set of lists of A. 
Unsurprisingly, when implementing in Haskell the formula of proposition for the 
case of Set monoids, we obtain lists. 

data List a = Nil Cons (a, List a) 



For given / : A — > C and g : B — s- C, then [/, g] is the unique morphism A + B — > C such that 
[/,,?] ° inl =/and [/,g] o inr = g. 
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Definition 2.8 {Sub-monoid) 

Given a monoid (M,e,m) in ^ , and a monic i : M M in c £, such that for some (unique) 
maps e' and m' , we have a commuting diagram 

7 — >M ^ M®M 

i i®i 

7 M' ^ M <g> Af 

e r m 

then (M',e',m') is a monoid, called the sub-monoid of M induced by the monic i, and i is 
a monoid monomorphism from M to M. 



2.2 Cayley Representation of a Monoid 

Every exponent in a monoidal category induces a monoid of endomorphisms: 
Definition 2.9 {Monoid of endomorphisms) 

Let (g>,7, Of, X , p ) be a monoidal category. The monoid of endomorphisms on any expo- 
nent A s *<? is given by the diagram 



where 

iU = [I®A-^A J 

c A = [ (A A ®A A )®A — > A A ® (A A ® A) ' dAA ® eVA > A A 0A " A > A J 



The Cayley representation theorem tell us that every monoid (M,m,e) in a monoidal 
category is a sub-monoid of a monoid of endomorphisms whenever M is an exponent. 

Theorem 2.10 {Cayley) 

Let (8,7, a, A, p) be a monoidal category, and let (M,e,m) be a monoid in 'if . If M is an 
exponent then (M,e,m) is a sub-monoid of the monoid of endomorphisms (M m ,cm,z'm), 
as witnessed by the monic rep = |mj : A7 M M . Moreover, abso rep = id^ where abs is 
given by 

abs = M M Pm " , M m ® / VSf ; M M ® M — — ^M 

Proof The morphism rep : M s- M is a monoid morphism. 

|mj o e M 
= { lemma IZ4l} 

\m o [eu <S> id) J 
= { monoid } 

[Xm\ 

= { definition of Im } 
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cm o ( [m\ ® [m\ ) 
= { definition cm } 

[evo (\d M in (g ev) oa _1 J o [raj g> [raj 
= { lemmalZ4l} 

[evo (id M M <g> ev) o a -1 o (([mj <g> L m J) ® id M )J 
= { naturality a -1 } 

[evo (id M M (g ev) o ([raj (g ([raj (g id*?)) ° « _1 J 
= { lemma l231 } 

[evo ([raj (g ra) o a~'j 
= { lemma l23l } 

[ra o (idM ® »t) o a _1 J 
= { monoid } 

[m o (m (g \&m)\ 
= { lemmalZ4l} 

\m\ om 

We have abso rep = \6m, and hence rep is monic. 

abso rep 
= { definition of abs and rep } 

ev o (\d M M (g e M ) o p M l M o [raj 
= { naturality of p _1 } 

evo (id M « ® e M ) o(\m\ (g id) op M ' 
= { tensor } 

ev o ( [raj (g idjfef) o (\Am ® e M ) ° p M l 
= {lemma [33]} 

rao (idM ig) e*f) oPa/ 1 
= { monoid } 

Pm°P m ' 

= { isomorphism } 
\6m 

a 

The Cayley theorem for sets (Theorem ll.lt is an instance of this theorem for the category 
Set. As new monoidal categories are introduced in the following sections, more instances 
will be presented. 



3 Monads as Monoids 

Consider the (strict) monoidal category End Q = ([Set, Set], o, Id) of endofunctors, functor 
composition and identity functor. A monoid in this category consists of 

• An endofunctor M, 

• a natural transformation ra : M o M — > M, 

• and a unit e : Id —> M; such that the diagrams 
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{MoM)oM — 

Mo (MoM) s-MoM 

v ' Mm 

commute. 

Hence, a monoid in End 0 is none other than a monad. Hence the following often-heard 
slogan: A monad is a monoid in a category of endofunctors. 



The corresponding implementation in Haskell is the following type class: 

class Functor m =>■ Triple m where 

TJ :: a —> m a 

join :: m (m a) — > m a 

where we have called the type class Triple in order to not clash with standard 
nomenclature which uses the name Monad for the presentation of a monad through 
its Kleisli extension: 

class Monad m where 

return :: a — > m a 

(5$*=) :: m a — > (a — > m b) — > m b 

The latter has the advantage of not needing a Functor instance and of being easier to 
use when programming. The two presentations are equivalent, as one can be obtained 
from the other by taking 77 = return, join = (^=id), and (^=f) =joinofmap/. 



3.1 Exponential for Monads 

Finding an exponential in this category means finding a functor (— ) F , such that we have 
an isomorphism natural in G and H 

Nat(HoF,G) Nat(//,G F ) (3.1) 

A useful technique for finding exponentials such as G F in a functor category is to turn 
to the famous Yoneda lemma. 

Theorem 3.1 (Yoneda) 

Let ^ be a locally small category. Then, there is an isomorphism 

FX = Nat(Hom^(X,-),F) 

natural in object X : c € and functor F : — > Set. That is, the set FX is naturally isomorphic 
to the set of natural transformations between the functor Hom^(X, — ) and the functor F. 



MoM MoM < Mold 

eM\ 

= M 



M IdoM: 
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Now, if an exponential G F exists in the strict monoidal category ([Set, Set], o, Id), then 
the following must hold: 

G F X = Nat(Hom(X,-),G F ) 
= Nat(Hom(X,-)oF,G) 



where the first isomorphism is by Yoneda, and the second is by equation |3. II Therefore, 
whenever the expression Nat(Hom(X,— ) oF,G) makes sense, it can be taken to be the 
definition of the exponential G F . Making sense in this case means that the collection of 
natural transformations between Hom(X, — )oF and G is a set. The collection Nat(F, G) 
of natural transformation between two Set endofunctors F and G is not always a set, i.e. 
[Set, Set] is not locally small. However, a sufficient condition for Nat(/% G) to be a set is 



for F to be small. Small functors ( Day & Lack, 2007 1 are endofunctors on Set which are 



a left Kan extension along the inclusion from a small subcategory. Therefore, every small 
functor F is an exponent in End 0 , with the exponential (— ) F given by 

G F X = Nat(Hom(X,-)oF,G) 

Remark 3.2 

The functor (— ) F is a right adjoint to the functor (— oF) and is known as the right Kan 
extension along F. 



The Haskell implementation of the exponential with respect to functor composition 
is the following. 

data Exp/ g x = Exp (Vy . (x-*fy)-tg y) 

The components of isomorphism ^. H are: 

<p :: Functor /; =>■ (Vx. h (fx) — ► g x) —> h y — > Exp/ gy 
<p t y = Exp (Xk ->■ t (fmap ky)) 

(p- 1 ::{Vy.hy^Expfgy)^h(fx)^gx 
(p~ l tx = let Exp g = t x in g id 



3.2 Free Monads 

By restricting End D to finitary functors we obtain the locally small, right-closed monoidal 



category End 0 /? ( [Kelly & Power, 1993 1. In this category, we may apply proposition ^. 7l and 
obtain the usual formula for the free monad of an endofunctor F . 

F*X X + F(F*X) 



The formula above can be readily implemented by the datatype: 

data Free 0 /x = Ret x 

Con {f (Free 0 /x)) 
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with monad instance: 

instance Functor/ => Monad (Free 0 /) where 
return x = Retx 
(Ret*) >^f=fx 
(Con m) >^=f = Con (fmap (>5=/) f«) 

There is no need to check that the instance satisfies the monad laws since the 
definition is derived from Proposition ^. 71 

The insertion of generators and the universal morphism from the free monad are: 

ins:: Functor/ =>/ Free 0 / 
insx = Con (fmap Retx) 

free :: (Functor/, Monad m) => (f om m) —> (Free 0 / A m) 

free/ (Retx) = return x 

free/ (Con t) =f (fmap (free k) t) 

where the o in the type signature of free is functor composition. 



3.3 Cayley Representation of Monads 

For an exponent F, we may apply theorem \2. 101 and obtain the monad of endomorphisms 
F F , the monad morphism rep, and the natural transformation abs. The monad F F corre- 
sponding to the monoid of endomorphisms on a functor F receives the name of codensity 
monad on F ( |Mac Lane, 1971| ). 

The codensity monad is implemented by the following datatype. 

type Rep/ = Exp// 

instance Monad (Rep/) where 
return x = Exp (Xh -^-hx) 

(Expm) ^>>=f = Exp (Xh —5- m (Xx — > let Exp t =f x in t h)) 

There is no need to check that the instance satisfies the monad laws since the definition 
is derived directly from the general definition of the monoid of endomorphisms. 
The morphisms converting from a monad m to Rep m and back are the following. 

rep:: Monad m => mx — >• Repmx 
rep m = Exp (m>8s=) 

abs:: Monad m ^> Rep mx —>m x 
abs (Rep m) =m return 

By Theorem 12.101 we know that abs o rep = id, and that abs is a monad morphism. 
Hence, we may change the representation of monadic computations on m, and perform 
computations on Rep m. This change of representation is exactly the optimisation 
introduced by Voiglander (2008 ) and shown correct by Hutton et al. (1201 Oi l. 
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Therefore, difference lists and the codensity transformation are both instances of 
the same change of representation: the Cayley representation. 



4 Ends and Coends 

In this section we review the concept of a special type of limit called end, and its dual 
coend. These concepts will be used in the development of the next sections. 

A limit for a functor F : ^ — > 3) is universal cone to F, where a cone is a natural 
transformation Ao — > F from the functor which is constantly D, for aflef, into the 
functor F. 

When working with functors with mixed variance F : c /o op x & — > @, rather than consid- 
ering its limit, one is usually interested in its end. And end for a functor F : X ^ — > 3> 
is a universal wedge to F, where a wedge is a dinatural transformation Ao — > F from the 
functor which is constantly D for a D E 2$, into the functor F. 

We make this precise with the following definitions: 

Definition 4.1 

A dinatural transformation a : F — > G between two functors F, G : ^ op x c & — > £) is a 
family of morphisms of the form Oc : F(C,C) — > G(C,C), one morphism for each C G ^, 
such that for every morphism / : C — > C' the following diagram commutes. 



F{C,C) L -^G{C,C) 




FiCC^—r-^GiC'^C) 

c 

An important difference between natural transformations and dinatural transformations 
is that the latter can not be composed in the general case. 

Definition 4.2 

A wedge from an object V E & to a functor F : ^ op x <tf — > 3> is a dinatural transformation 
from the constant functor Ay : c t? op x ^ — > & to F. Explicitly, an object V together with a 
family of morphisms ax ■ V — > F(X,X) such that for each f:C—>C' the following diagram 
commutes. 



F(C,C) 




F(C',C') 
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In the same way a limit is a final cone, we define an end as a final wedge. 
Definition 4.3 

The end of a functor F : & op x ^ — > & is a final wedge for F. Explicitly, it is an object 
Fe® together with a family of morphisms <X>c : V — > F(C,C) such that the diagram 

F(C,C) 





F(C',C 



commutes for each / : C — >■ C', and such that for every wedge from V' 6 @, given by 
a family of morphisms y ( : V' — > F(C,C) such that F(id,/) o y c = F(f, id) o Y c for every 
/ : C — > C', there exists a unique morphism ! : V' — > V such that the following diagram 
commutes. 



F(C,C) 




The object V is usually denoted by J A F(A,A) and referred to as "the end of F' 



One nice feature of ends is that it leads to a natural implementation of categorical 
concepts in Haskell by replacing the end by a universal quantifier. For example, the 
natural transformations between two functors F and G can be expressed as an end 

FX^GX 

(where by X — > Y we note the exponential on Set) and implemented as follows. 
typef-^g = Vx.fx^>-gx 



Ends can be seen as a generalised product, but cut down by a relation of dinaturality. 
Following this view, a morphism to an end is defined by a dinatural family of morphisms: 

(0):F^/ A F(A,A) 



<j)x ■■ Y F(X,X), dinatural in X 



Proposition 4.4 

By the universal property of ends, (0) is the unique morphism such that cox ° (0) = (j>x- 
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Given a dinatural transformation a : Ay — > F, and a morphism h : Z — >• Y, the family of 
morphisms defined by (a o /j) c = Oc ° A is dinatural in C. Using the universal property of 
ends, we obtain the following proposition: 

Proposition 4.5 

Let (px ■ Y — > F(X,X) be a family of morphisms dinatural in X, and a let h : Z —> Y. Then 

(0 oh) = (0) o/z. 

When defining a family of morphisms, abstracting over the varying object comes in 
handy. We will use A as a binder for objects variables. For example, (a o h)c = (Xc°h can 
be defined directly as a o h = AC. <Xc°h, 

There are dual notions of wedges and ends, namely cowedges and coends. We briefly 
summarise their definitions. 

Definition 4.6 

A cowedge from F is an object V together with a dinatural transformation a : F — > Ay. 
Definition 4. 7 

A coend is an initial cowedge. Explicitly, a coend of F is an object V together with a family 
of morphisms Iq : F(C,C) — > V such that ix °F(f, id) = ly oF(id,/), which is universal 
with respect to this property: for every object V' and family of morphisms yc '■ F(C, C) — > V' 
such that fx °F(f, id) = yyoF(\d,f), then there exists a unique morphism / : V —>V' such 
that Yx=f°lx- 

A coend can be seen as a generalised coproduct, quotiented by an equivalence relation. 
If (j>x '■ F(X,X) — > Y is a family of morphisms dinatural in X, then the morphism from 
/ F(A,A) to Y given by the universal property of coends is denoted as [0]: 




In the same way an end can be implemented as a universal quantifier, a coend can 
be implemented as an existential quantifier, as supported by modern implementations 
of Haskell. 



We finish this section by presenting the Yoneda lemma in the language of ends and 
coends. Focusing on functors < rf° p x c € — > Set, with a small category, we can form the 
set of dinatural transformations between two such functors. The fact that such dinatural 
transformations form a set is justified by the next proposition. 

Proposition 4.8 

Let F, G : ^ op x 'rf — > Set, with If a small category. Dinatural transformations from F to 
G are in a one-to-one correspondence with global elements of f A F(A,A) —> G(A,A). If we 
denote the dinatural transformations between F and G by Dinat(F,G), we obtain: 




[fl: f A F(A,A)^Y 



tyx ■ F(X,X) — > Y, dinatural in X 
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In particular, when F and G are functors in one covariant variable (i.e. dummy in their 
contravariant variable), Dinat(,F, G) reduces to Nat(/% G) and we have 

Nat(F,G) = (f{A)^G{A) 

J A 

The Yoneda lemma in its end and coend form |Asada & Hasuo, 2010[ [Asada, 2010]) is 
usually expressed as: 

FX = J Hom^(X,Y) -> FY = J FY x Hom<g(Y,X) 

We can interpret the end form of Yoneda lemma as an isomorphism between types 
/ x and Vy. (x — > y) — >■/ y whenever/ is a Functor. 

The components of the isomorphism are implemented as 

<p :: Functor/ =>fx -> (Vy. (x->y) ->fy) 
(p v = Xf — > fmap/ v 

(p- 1 :: (Vy. (x->y) -+fy) ->fx 
(p- 1 g = g\d 

Similarly, its coend form (also known as "co Yoneda lemma") is expressed by 

y/ :: Functor/ =>/*->• (3 y. (fy,y->x)) 

y/v =(v,id) 

y- 1 ::Functor/^ (3 y. (fy,y->x)) ->fx 
V~ l (x,g) =fmapgx 



5 Applicatives as Monoids 

Similarly to monads, applicative functors (McBride & Paterson, 2008} are a class of func- 
tors used to write certain effectful computations. These functors come with an operation 
that allows evaluation of functions inside the functor. Compared to monads, applicative 
functors are a strictly weaker notion: every monad is an applicative functor (see Sec- 
tion 18.31 ). but there are applicative functors which are not monads. The main difference 
between monads and applicative functors is that the latter does not allow effects to depend 
on previous values, i.e. they are fixed beforehand. 



In Haskell, these functors are represented by the following type class: 

class Functor/ => Applicative/ where 
pure:: a —>f a 

(©) ::f{a^b)^fa^fb 



Since their introduction, applicative functors have been characterised categorically as 
strong lax monoidal functors ([McBride & Paterson, 2008| ). We explain the notions of strong 
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functor and lax monoidal functor separately. In simple words, a lax monoidal functor is a 
functor preserving the monoidal structure of the categories involved. 

Definition 5.1 

A lax monoidal functor F : — >■ 3> is a functor between the underlying categories of 
two monoidal categories a^,X^>,p^) and ffi,/, Ct$, A^,p@) together with a 

natural transformation 

h,B ■ F(A) © F(B) -> F(A ® B) 

and a morphism 

77 : / -» F(7) 
such that the following diagrams commute. 



FA © (FB © FC) 



defer 



■FA®F(B®C) 



F(A © (B © C)) 



Fag 



(FA © FB) © FC — F{A®B)®FC - — ^ F((A © B) © C) 



FA © 7 U FA © Fl 



7 © FA > F7 © FA 



FA 



■ F(A 



FA 



■F(7©A) 



A monoidal functor is a lax monoidal functor in which 0 and 77 are isomorphisms. 
Definition 5.2 

An endofunctor F : ^ — > ^ is strong when it comes equipped with a natural transformation 

st^.B : A © FB — > F(A © B) 
called a strength such that following diagrams commute. 

1 © F(A) 



A © (B © FC) -^i A © F(B © C) — ^U- F(A © (B © C)) 



F 1 




F ce) 



F(A) (A©B)©FC- 



F{{A(g,B)0C) 



All endofunctors on the (cartesian) monoidal category Set come with a unique strength, 
so all functors in [Set, Set] are strong. Now, a strong lax monoidal functor is simply a 
lax monoidal functor which is also a strong functor and in which the strength interacts 
coherently with the monoidal structure. In our setting of Set endofunctors we get this 
coherence for free. 



The categorical characterisation of applicative functors as strong lax monoidal 
functors gives rise to an alternative (but equivalent) implementation of applicative 
functors: 
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class Functor/ Monoidal/ where 
unit::/() 

(*) v.fa >//> -fUiJ') 



We saw how monads are monoids in a particular monoidal category. Applicative functors 
can be shown to be monoids too. Interestingly, they are monoids in the same category as 
monads: An applicative functor is a monoid in a category of endofunctors. However, it is 
not the same monoidal category, as this time we must consider a different notion of tensor. 
For monads we used composition; for applicative functors we use a tensor called Day 



convolution (Tidy, 19701. Given a cartesian closed category c <f, two functors F,G:'tf 



and an object B in c i , the Day convolution (F * G)B is a new object in c to defined as: 

rC.D 

(F*G)B = / FCxGDxB {CxD) 



The coend does not necessarily exist for arbitrary Set endofunctors, but it is guaranteed 



to exist for small functors (Day & Lack, 20071. Unless otherwise stated, in the remainder 



of the section we will work with [Set, Set]s the category of small Set endofunctors. 

Applying theorem IX. 7. 1 of Mac Lane ( 119711 ), it can be shown that F * G is not only a 
mapping between objects, but also a mapping between morphisms, and that it respects the 
functor laws. Furthermore, given natural transformations a:F —±G and j3 : H — > I, we can 
form a natural transformation a * j5 . F * H — > G * I. This makes the Day convolution a 
bifunctor — * — : [Set,Set]s x [Set,Set] s — > [Set,Set] s . 



The coend in the definition of the Day convolution can be implemented by an 
existential datatype. In the definition below, done in GADT style, the type variables c 
and d are existentially quantified. 

data (f*g)b where 

Day ::/ c ->• g d ->• ((c, d) -> b) -> (f * g) b 

instance (Functor/, Functor g) =>■ Functor (f * g) where 
fmap/ (Day xyg) = Dayxy (fog) 

The Day convolution is a bifunctor with the following mapping of morphisms: 

bimap:: (f h) — > (g i) -> (f ~k g h-ki) 
bimap mi m 2 (Day x yf) = Day (mi x) (m,2 y)f 



The following proposition allows us to write morphisms from the image of the Day 
convolution to another object. 

Proposition 5.3 

There is a one-to-one correspondence defining morphisms going out of a Day convolution 

[<g,<#\{F*G,H) [ f A^](xo(FxG),flox) (5.1) 
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which is natural in F, G, and H. Here, x : ^ x ^ — > 'if? is the functor which takes an object 
(A,B) of the product category into a product of objects Ax B. 

Remark 5.4 (Day convolution as a left Kan extension) 

In view of the last proposition, the Day convolution F * G is the left Kan extension of 
xo(FxG) along x . 



The proposition above shows an equivalence between the types (f -k g) h and 
Va b. {f a,g b) — > h (a,b). 

$::(f*g^h)^(fa,gb)^h(a,b) 
0/(*,y) -/(Dayxyid) 

:: Functor /i (Vflfe. (fa,gb)->h (a,b)) ->(f*g-^h) 
tf" 1 g (Day xy/) = fmap/ (g (*,?)) 



In contrast to the composition tensor, the Day convolution is not strict. Moreover, the 
Day convolution is symmetric, which together with appropriate natural transformations a, 
A and p make End* = ([Set, Set],?,*, Id, a, A, p, y) a symmetric monoidal category ( Day, 1970} . 



Here we present the natural transformations of the monoidal category End*. In order 
to do that we first implement the identity functor. 

data Id a = Id a deriving Functor 
A :: Functor/ =>/ A Id */ 
A x = Day (Id ()) x snd 

p :: Functor f=>f-^f*\d 
px = Day x (Id ()) fst 

a::(f*g)*h^-f-k{g-kh) 
a (Day (Dayxy/) zg) = Dayx (Dayyz/i)/ 2 
where f = X(d,b) ((Ac -> / (c,d)),b) 
f 2 = X(c,(h,b))^g(hc,b) 

Y::(f*g)^(g*f) 
7 (Dayxy/) = Day yx (/oswap) 
where swap (x,y) = (y,x) 

We leave the definition of the inverses as an exercise. 



Remark 5.5 (Alternative presentations of the Day convolution) 

In our setting of Set functors, the Day convolution has different alternative representations: 
(F -k G)B = J A FAxG{B A ) = J A F(B A ) x GA (5.2) 

5.1 Monoids in End* 



A monoid in End* amounts to: 
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• An endofunctor F, 

• a natural transformation m: F * F — >• F, 

• and a unit e : Id — > F; such that the following diagrams commute. 



(F*F)*F 

a 

F*(F*F) 



m*F 



F*F 



F-km 



F*F 




From the unit e, one can consider the component ej : 1 — > Fl. This component defines a 
mapping which can be used as the unit morphism for a lax monoidal functor. Similarly, 
using equation |5.1| the morphism m : F * F — > F is equivalent to a family of morphisms 

■&{m) A ,B '■ FA x FB —> F(A x B) 

which is natural in A and B. This family of morphisms corresponds to the multiplicative 
transformation in a lax monoidal functor. Putting together F, #(m) and ej, we obtain a 
strong lax monoidal functor on Set, that is, an applicative functor. 

It remains to be seen if the converse is true: can a monoid in End* be defined from an 
applicative functor? Given an applicative functor (F, 0, rj), it easy to see that a multiplica- 
tion for the monoid can be given from 0, using equation [5.1l again. What has to be seen it is 
if one can recover the whole natural transformation e : Id — > F out of only one component 
77 : 1 — > Fl. We do so by using the strength of F (which exists since it is an endofunctor 
on Set): the following composition 



(id,!) 



■Ax 1 



id x 77 



■AxFl 



F{A x 1) 



Fit, 



FA 



defines a morphism e& : A — > FA for each A. 

All told, applicative functors are monoids in the category of endofunctors which is 
monoidal with respect to the Day convolution. 



5.2 Exponential for Applicatives 

To apply the Cayley representation, first it must be determined if the category End* is 
monoidal closed. To do so, we use the same technique we used in section im for finding the 
exponential of monads: we apply Yoneda and then the universal property of exponentials. 

G F (B) = Nat(Hom(fi,-),G F ) 

^ Nat(Hom(S,-) *F,G) 

Therefore, whenever the last expression makes sense, it can be used as the definition of the 
exponential object. Since we are working on a category of small functors, the expression 
always makes sense and the exponential is always guaranteed to exist. Doing some further 



algebra, an alternative form for G can be derived (Day, 1973 1: 



G F (B) = Nat(F,G(B X — )) 
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Using Haskell, this exponential can be represented as: 
data Exp/ gb = Exp (Va./a -y g (b,a)) 

The components of the isomorphism showing it is an exponential are: 

<p::(f*g^h) ->■/-=> Exp gh 
(p mx = Exp (Ay — > m (Day xy id)) 

(p^ 1 :: Functor h => (f Exp g ft) -yf -kg ft 
<p _l / (Day xy ft) = fmap ft (f y) 

where Exp t = fx 

We therefore conclude that End* is a symmetric monoidal closed category. 

5.3 Free Applicatives 
By Proposition ^. 71 the free monoid, viz. the free applicative functor, exists. 

The direct application of proposition ^. 7l vields the following implementation of the 
free applicative functor. 

data Free*/ a = Pure a | Rec ((/ 7k- Free*/) a) 

Mining the definition of *, we obtain the simplified datatype 

data Free*/ a where 
Pure:: a — > Free*/ a 

Rec ::/ c —> Free*/ d — s- ((c,d) — > a) — >• Free*/ a 

with the following instances: 

instance Functor/ Functor (Free*/) where 
fmap g (Pure x) = Pure(gx) 
fmapg (Recxy/) = Recxy (go/) 

instance Functor/ Applicative (Free*/) where 
pure = Pure 

Pureg ©z = fmapgz 

(Recxy/) ©z = Recx (pure (,) ©y ©z) (A(c, (<i,a)) -> f (c,d) a) 

There is no need to check that the instance satisfies the applicative laws since the 
definition is derived from Proposition ^. 71 

The implementation of the insertion of generators and the universal morphism from 
the free applicative is: 

ins:: Functor a a Free* a 
insx = Recx (Pure ()) fst 

free :: (Functor a, Applicative b) =>• (a A ft) — s> (Free* a b) 
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free/(Purex) = pure.v 




free/ (Recxy g) = pure (curry g] 


®f x®freef y 


Alternative presentations of the Day convolution produce alternative types for the 


free applicative. Using the two alternative expressions for the Day convolution given 


in equationl5.2l we obtain two alternative definitions of the free applicative functor: 


data Free^/ a where 




Pure' :: a — >• Free// a 




Rec' ::/ b^Free'+f (b a) 


Free// a 


data Free"/ a where 




Pure":: a ->• Free'// a 




Rec" ::/(&-> a) ->-Fre<£'/* 


-> Free// a 


Hence, the two alternative presentations of the Day convolution given in 


equationl5.2|give rise to the two notions of free applicative functor found by Capriotti 


and Kaposi \2Q\A\. 





5.4 Cay ley Representation for Applicatives 

Having found the exponential for applicatives, we may apply theorem \2. 101 and construct 
the corresponding Cayley representation. 



The Cayley representation is the exponential of a functor over itself, 
type Rep/ = Exp// 

instance Functor/^ Functor (Rep/) where 

fmap/ (Exp h) = Exp (fmap (X(x,y) — > (f x,y)) oh) 

instance Functor/ =>• Applicative (Rep/) where 
puree = Exp (fmap (c,)) 

Exp/ ©Expo = Exp (fmap go a o/) 
where g (x,(f,c)) = (fx,c) 

Again, there is no need to check compliance with applicative laws because the 
instance is derived from the general construction of the monoid of endomorphism. 

Finally, from theorem fe.lQI we obtain the applicative morphism rep and the natural 
transformation abs, together with the property that abs o rep = id. 

rep:: Applicative/ =>/ A Rep/ 
repx = Exp (Xy — > pure (,) ®x®y) 
abs:: Applicative/ => Rep/-^/ 
abs (Exp t) = fmap fst (t (pure ())) 
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6 Pre-Arrows as Monoids 

Having successfully applied the Cayley representation to monads and applicatives, we 
wonder if we can find a representation for a third popular notion of computation: arrows. 
Arrows (Hughes, 2000 1 were already studied as monoids ( Jacobs et al, 2009] ), resulting in 



a monoid in the category of profunctors. We briefly review these results. 

A profunctor from c <§ to S is a functor S° p x ^ — > Set, sometimes written as 
In a sense, functors are to functions what profunctors are to relations. A morphism between 
two profunctors is a natural transformation between their underlying functors. 



We indicate that a type constructor h :: * — > * — > * is a profunctor by providing an 
instance of the following type class. 

class Profunctor h where 

dimap:: (d' ->d)^(c-tc , )->hdc->h d! d 

such that the following laws hold 

dimap id id = id 
dimap (fog) (ho i) = dimap g h o dimap/ i 

Notice how, as opposed to a bifunctor, the type constructor is contravariant on its first 
argument. 



Definition 6.1 

The category of profunctors from H to S, denoted Prof (^, has as objects profunctors 
from ^ to 2$, and as morphisms natural transformation between functors S op x — > Set. 

From now on, we will focus on profunctors c £ — H> c & , where C S" is a small cartesian 
closed subcategory of Set with inclusion J \ c £ Set. To avoid notational clutter, we omit 
the functor J when considering elements of < H> as elements of Set. 

Profunctors can be composed in such a way that give a notion of tensor (Bena bou, 1973| >. 
Given two profunctors F, G : ^ H-> If, their composition is 

{F®G)(A,B)= [ Z F(A,Z)xG(Z,B) 



The tensor is implemented in Haskell as follows: 

data (®)f gab = \/z. (f az)®(gzb) 

instance (Profunctor/, Profunctor g) => Profunctor (f<S)g) where 
dimap mi ni2 (f®g) = (dimap mj id/) ® (dimap id ni2 g) 



The functor Horn : c to op x — > Set is small and it is the unit for the composition: 
(F ® Hom)(A,B) = J F(A,P) x Hom(P,B) = F(A,B) 
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where the isomorphism holds by the Yoneda lemma. This calculation is used to define a 
natural isomorphism p : F (g> Horn = F. Likewise, natural isomorphisms A : Horn <E> F = F 

and a : (F ® G) <g> H = F <g> (G <g> H) can be defined. 



We represent morphisms between profunctors as 
type/ ^ g = \lab.f ab gab 
The implementation of A, p, and a are as follows: 

type Horn = (— >) 

A :: Profunctor/ => Horn (&/ A/ 
A (/<8>x) = dimap/ id x 

p :: Profunctor/ =>/® Horn -^/ 
p (;c(g>/) = dimap id/x 
a :: if ® g) ®h ^ f ® (g®h) 
a ((/ '(8> g)®h)=f ®{g®h) 



Thus, a monoidal structure can be given for [ c tf° p x ff, Set], with composition ® as its 
tensor, and Horn as its unit. We denote this monoidal category by Pro. 

Which are the monoids in this monoidal category? A monoid in Pro amounts to: 

• A profunctor A, 

• a natural transformation m : A <E> A — > A, 

• and a unit e : Horn — > A; such that the diagrams 



(A ®A) (g>A 

a 

A ® (A ®A) 




Horn 



commute. 
Using the isomorphism 

^ A(X,Z) xA(Z,Y)^j -^A(X,Y) = J A(X,Z) XA(Z,Y) ->A(X t Y) 

we get that a natural transformation m : A <E> A — >• A is equivalent to a family of morphisms 
mxj,z ■ A(X , Z) x A (Z, T ) — > A(X ,Y) which is natural in X and Y and dinatural in Z. 

This presentation makes the connection with arrows evident: m corresponds to the op- 
erator (^>) and e corresponds to arr. Unfortunately, the first operation is missing. We 
postpone this problem until the next section, and in the remainder of this section focus on 
monoids in Pro, i.e. arrows without a first operation, which we call pre-arrows. 
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We introduce a class to represent the monoids in this category. It is simply a 


restriction of the Arrow class, omittin 


g the first operation. 


class Profunctor a => PreArrow a 


where 


arr :: (b — s> c) — > a & c 




(^>) v.abc^acd^abd 




The laws that must hold are 




(« b) 3 


5>c = a^>(b^>c) 


arr/ 3 


S> a = dimap/ id a 


a ^> arr/ = dimap id/a 


arr (g of) = arr/ arr g 



6.1 Exponential for Pre- Arrows 

The exponential in Pro exists (Benabou, 1973| l and a simple calculation using the Yoneda 
Lemma shows it to be 

B A (X,Y) = Nat(A(Y 7 -),B(X,-)). 

The implementation of exponentials in Pro follows the definition above: 
data Exp a b xy = Exp (W. ay d —y b x d) 

instance (Profunctor g, Profunctor h) => Profunctor (Exp g h) where 
dimap ni\ n%2 (Expg/i) = Exp (dimap m\ id ogho dimap ni2 id) 

The components of the isomorphism which shows that Exp is an exponential are: 

<p ::(f®g^h)^(f ^ Exp gh) 
(p mf = Exp {kg -*m{f®g)) 

<p- l ::(f^Expgh)^(f®g^h) 
<p _l m (f®g) = eg where Exp e = mf 



6.2 Free Pre-Arrows 
By Proposition ^. 71 the free monoid, viz. the free pre-arrow, exists. 

The direct application of Proposition ^. 7l vields the following implementation of the 
free pre-arrow. 

data Free® axy where 

Horn :: (x — > y) — > Free® axy 

Comp ::axp — > Free® a p y — > Free® axy 
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with the following instances: 

instance Profunctora => Profunctor (Free® a) where 
dimap/ g (Horn h) = Horn (gohof) 
dimap/g (Comp xy) = Comp (dimap/ id x) (dimap id gy) 

instance Profunctora => PreArrow (Free® a) where 
arr/ = Horn/ 

(Horn/) ;§> c = dimap/ id c 
(Comp jc y) ^> c = Comp x (y c) 

There is no need to check that the instance satisfies the pre-arrow laws since the 
definition is derived from Proposition ^. 71 

The insertion of generators and the universal morphism from the free pre-arrow are: 

ins:: Profunctor a => a Free® a 
insx = Comp x (arr id) 

free :: (Profunctor a, PreArrow b) => (a b) —> (Free® a^rb) 

free/ (Horn g) = arrg 

free/ (Compxy) = fx ^ free/y 



6.3 Cayley Representation of Pre-Arrows 

Having found the exponential for pre-arrows, we may apply theorem \2. 101 and construct 
the corresponding Cayley representation. 



The Cayley representation is the exponential of a profunctor over itself, 
type Rep a = Exp a a 

instance Profunctora => PreArrow (Rep a) where 
arr/ = Exp (Ay dimap/ id y) 

(Exp/) ^ (Exp g) = Exp (Ay ->/ (g y)) 

Again, there is no need to check compliance with pre-arrow laws because the 
instance is derived from the general construction of the monoid of endomorphism. 

Finally, from theorem [2.101 we obtain the pre-arrow morphism rep and the natural 
transformation abs, together with the property that abs o rep = id. 

rep:: PreArrow a a Rep a 
rep x = Exp (Ay — > x ^> y) 
abs:: PreArrow a Rep a a 
abs (Exp/) =/ (arr id) 



ZU064-05-FPR main 19 June 2014 0:23 



Notions of Computation as Monoids 27 

7 Arrows as Monoids 

Returning to the problem of arrows as monoids, we need to internalise the first operation 
in the categorical presentation. Jacobs et al. ( 120091 1 solve this problem by adjoining an 
ist operator to monoids in Pro: an arrow is a monoid (A,m,e) together with a family of 
morphisms ist : A(X,Y) — }A(X,YxX). We take an alternative path. We work on a category 
of strong profunctors (profunctors with a first-like operator), and then consider monoids in 
this new monoidal category. 

Definition 7.1 

A strength for a profunctor F : c i° 9 x ^ — > Set is a family of morphisms 

st x ,r,z : F(X,Y) -^F{XxZ,Yx Z) 
that is natural in X, Y and dinatural in Z, such that the following diagrams commute. 



F(X,Y) 



F(X x l,Y x 1) 



F(id,Wi) 



F(X x 1,F) 



F(X,Y) 

F(X x (V xW),Y x (V xWj) ■ 



sty 



Fla.a 



^ F(X xV,Y xV) 

stiv 

F((X x V) x W, (Y x V) x W) 



We say that a pair (F, si) is a strong profunctor. The diagrams that must commute here 
are similar to those for a tensorial strength. 



The type class of strong profunctors is a simple extension of Profunctor. 

class Profunctor p =^ StrongProfunctor p where 
first v.pxy^p (x,z) (y,z) 

Instances of the StrongProfunctor class are subject to the following laws. 

dimap id K\ (first a) = dimap K\ id a 

first (first a) = dimap a a -1 (first a) 
dimap (id x /) id (first a) = dimap id (id x /) (first a) 

The first two laws correspond to the two diagrams above, while the third one 
corresponds to dinaturality of first in the z variable. 



In contrast to strong functors on Set, the strength of a profunctor may not exist, and even 
if it exists, it may not be unique. 
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As an example of strengths not being unique, consider the following profunctor: 

data Double xy = Double ((x,x) —> {y 7 y)) 

instance Profunctor Double where 

dimap/ g (Double h) = Double (lift go ho lift/) 
where lift:: (a — > b) — s> (a, a) —> (b,b) 
lift/ (a,a') = (fa,fa') 

there exist two possible instances satisfying the strength axioms. 

instance StrongProfunctor Double where 
first (Double/) = Double g 
W hereg((x,zW,z')) = ((y,z),(y',z')) 

where (y,y') =/ (x,*?) 

instance StrongProfunctor Double where 
first (Double/) = Double g 

where g ((x,z), (*',z')) = (iy,z), (y',z)) 

where (y,y') =/ fax 1 ) 

Therefore, the profunctor Double does not have a unique strength. 



Given two strong profunctors (F, st F ), (G,st G ), a strong natural transformation is a 
natural transformation a : F — > G that is compatible with the strengths: 

F(X,Y) — F(X x Z,Y x Z) 



G(X, Y) G(X xZ,YxZ) 

St G 

Following the approach to strong monads of Moggi ( 1995 ), we work with the category 
[ f <f ° p x Set] str of strong profunctors. 

Definition 7.2 

The category [ c ^ op x Set] str consists of pairs (F,st) as objects, where F is a profunctor 
and st is a strength for it, and strong natural transformations as morphisms. 

Even when the strength for a functor is not unique, we usually write (F, st F ). Here the 
superscript F in st F is just syntax to distinguish between various strengths for different 
profunctors, but it does not mean that st F is the strength for F . 

The monoidal structure of Pro can be used for strong profunctors. Given two strong 
profunctors (AjSf 4 ) and (B,st B ), a family of morphisms st^® 3 = [AP.lpo (st^ x stf )] is 
defined. It is easy to see that such family is indeed a strength for the profunctor A ® B. The 
monoidal category of strong profunctors with tensor defined this way is denoted by SPro. 

A monoid in SPro amounts to the same data that we had in the case of Pro. This time, 
however, the morphisms m and e (being morphisms of SPro) must be compatible with the 
strength as well. 
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Arrows can be implemented as strong profunctors which are pre-arrows. 
class (StrongProfunctor a, PreArrow a) Arrow a 

Instances of Arrow are empty, but the programmer should check the compatibility 
of the unit and multiplication of the pre-arrow with the strength: 

first (arr/) = arr (f x id) 
first (a^>b) = first a ^> first b 

These two laws, together with the laws for profunctors, pre-arrows and strength, 
constitute the arrows laws proposed by Paterson (120031 1. 



Unfortunately, we have not managed to find an exponential for arrows. Part of the difficulty 
in finding one seems to stem from the fact that strengths for profunctors may not exist, and 
even if they do, they may not be unique. For example, given two strong profunctors A and 
B, the profunctor B A defined in Section loTTl does not seem to have a strength. 

However, as shown next, it is possible to co-freely add a strength to a pre-arrow, and use 
that to obtain a representation for arrows. 



We mitigate the failure to find an exponential in SPro by building on the success in Pro. 
Concretely, we investigate how to add a strength to profunctors in Pro, and use this to 
complete the constructions in Pro to make them work in SPro. 

There is an obvious monoidal functor from the monoidal category of strong profunctors 
SPro into the monoidal category of profunctors Pro that forgets the additional structure. 
More precisely, the functor U : SPro — s> Pro forgets the strength. 



Interestingly, this functor has a right adjoint. That is, there is a functor T such that we 
have a natural isomorphism. 



The monoidal functor T : Pro — > SPro is given by TB = (7a,st), with its components 



7.1 Exponential for Arrows 



7.2 Adding a Strength to Pre-Arrows 



E/^st 4 ) =A 



(j) : Pro(t/ (A^t 4 ), B) ^ SPro((A, st 4 ), TB) 



(7.1) 



defined by 




st z = (AV.B(a,a l )o(o Zx v) 



The adjunction U H T tells us that T completes a profunctors by (co)freely adding a 
strength. Pastro and Street, when working on Tambara modules ( |Pastro & Street, 2008) 1, 
introduced an endofunctor on the category of profunctors which adds a structure similar to 
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what we call a strength. The functor T is based on that endofunctor and hence we call it 
the Tambara functor. 



The Tambara functor may be implemented as follows. 

data Tambara a xy — Tambara (Vz. a (x,z) (y,z)) 

instance Profunctora => Profunctor (Tambara a) where 
dimap/g (Tambara x) = Tambara (dimap (lift/) (lift g) x) 
where lift/ (a,b) = if a,b) 
instance Profunctora => StrongProfunctor (Tambara a) where 
first (Tambara x) = Tambara (dimap a a -1 x) 
where a ((x,y),z) = (x,(y,z)) 
or 1 (x,(y,z)) = ({x,y),z) 



The isomorphism l7.1l is witnessed by morphisms: 

(^( J ?)(A,5tA), B ) xy = (AZ.J?xxz,yxzost|) 
(V 1 (P)(a,s^),b) x y = B^i' 1 .tt) 0 ®i 0 Pxj 

The components of the isomorphism l7.1l are implemented in Haskell as follows. 

<j) :: (StrongProfunctor a, Profunctor b) => (a b) — > (a Tambara b) 
(j)f a = Tambara (f (first a)) 

0 _1 :: (StrongProfunctor a, Profunctor b) => (a Tambara fo) — > (a fc) 
0 -1 / a = dimap fst -1 fst 
where Tambara b =f a 

fct -1 JC = (x,Q) 



Since we have an adjunction U H 7\ we can form a comonad t/T : Pro — > Pro. The 
counit of UT is the counit of the adjunction: e = 0 1 (id : A — > A) = A(%\ ,%\) o (Oi, and 
its comultiplication is 5 = 1/0 (id : UTA -> E/TA)T = (AZ. (AV.A(a, a" 1 ) o co Z xv})- 

Proposition 7.3 

The category SPro is equivalent to the (co)Eilenberg-Moore category for the comonad UT. 

Proof A coalgebra for this comonad is an object A from Pro together with a morphism 
o" : A — > UTA such that these diagrams commute: 

UTA—^UT{UTA) A — s- UTA 




UTa 



UTA UTA UT(UTA) 
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The morphism a is a family of morphisms 

o x ,Y :A(X,F)-> J A(X xZ,Y xZ) 

natural in X and T. By the universal property of ends, the family Gx.y is equivalent to a 
family of morphisms 

o x ,Y,z:A(X,Y) -^A(X xZ,Y xZ) 

natural in X and Y, and dinatural in Z. Such family has exactly the form of a strength. Using 
the laws for coalgebras of a comonad, one can prove that a is indeed a strength for A. □ 



7.3 A Representation of Arrows 

Although we have not found the form of exponential objects in SPro, an alternative repre- 
sentation for monoids can be given with help of the Tambara functor. 

The idea is to take a monoid in SPro and forget the strength structure using U. Then, 
use the Cayley representation for monoids in Pro, and finally apply the Tambara functor 
to obtain a new strength on this monoid. That is, given a monoid (M,m,e) in SPro, 
its representation is T(UM VM ). The functor T is monoidal and therefore, as shown by 
Theorem l8.ll it takes monoids in Pro to monoids in SPro. 

More concretely, given a monoid ((A,st ),m,e) in SPro (i.e. and arrow), we construct a 
morphism rep : (AjSf 4 ) — > TA A as 

rePxj = (AZ.(AZ>.|moiy xZ o(st§ x id) J > > 

This is a legit morphism in SPro, i.e. it commutes with the strengths of A and TA A . It has 
a left inverse, abs : UTA A — > U(A, st^) defined as 

absx,r = A(7!4 , id) o evo (id x e) o (id, [fti 0 ^2j°0 o CDy o a>i 

and therefore, rep is a monomorphism. This proves that TA A is a representation for (A, st A ). 



The representation is implemented in Haskell as follows. 

data Rep axy = Rep (Vz' z. a (y,z') z — > a (x,z') z) 
instance Profunctor a =>■ Profunctor (Rep a) where 

dimap/g (Rep x) = Rep (Ay — > dimap (lift/) id (x (dimap (lift g) id y))) 
where lift/ (a,b) = if a,b) 

The representation takes any profunctor into an arrow. 

instance Profunctor a => PreArrow (Rep a) where 

arr/ = Rep (dimap (lift/) id) where lift/ (a,b) = (f a,b) 
Rep x 3^ Rep y = Rep (A v — > x (y v)) 
instance Profunctor a => StrongProfunctor (Rep a) where 
first (Repx) = Rep (Az — > dimap a id (x (dimap a -1 id z))) 
where a ((x,y),z) = (x, (y,z)) 

a- 1 (x,(y,z)) = ((x,y),z) 
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Since we verified that the strength is compatible with the pre-arrow structure, we 
may declare the Arrow instance. 

instance Profunctor a => Arrow (Rep a) 

Any arrow a can be represented by Rep a. Moreover, abs o rep = id. 

rep:: Arrow fl=^fliy-> Rep axy 
repx = Rep (Xz — > first x ^> z) 

a bs : : Arrow a => Rep a x y — > a x y 
abs (Rep x) = arr fst 3S> jc (arr fst) 
where fst -1 y = (y, ()) 



7.4 Free Arrows 

Having failed to find an exponential in SPro, we cannot apply Proposition ^ . 71 to obtain the 
free monoid in SPro and therefore we fall back to finding it directly. Fortunately, we do 
not need to search much as the free monoid on Pro is equipped with an obvious strength 
whenever it is built over a strong profunctor, and indeed one can verify that the obtained 
monoid is the free monoid in SPro. 



The free pre-arrow can be equipped with a strength when defined over a strong 
profunctor. 

instance StrongProfunctor a => StrongProfunctor (Free® a) where 
first (Horn/) = Horn (X(x,z) -> (f x,z)) 
first (Comp.r y) = Comp (first*) (first y) 

Since the unit and multiplication of the free arrow are compatible with the strength, 
we can declare the Arrow instance without guilt. 

instance StrongProfunctor a =>■ Arrow (Free® a) 

The insertion of generators and the universal morphism are the same as the ones from 
pre-arrows. The only difference is that now we require StrongProfunctors instead of 
plain Profunctors. 

ins:: StrongProfunctor a => a A Free® a 
insx = Compx (arr id) 

free:: (StrongProfunctor a, Arrow b) (a b) — »■ (Free® a b) 

free/ (Horn g) =arrg 

free/ (Comply) —fx ^> free/y 

Here, we would really like the type (a b) to represent strength preserving 
morphisms between strong profunctors. Therefore, free/ will preserve the strength 
only when/ does. 
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Remark 7.4 

We now have adjunctions 




Pro ± SPro ± Mon(SPro) 



However, they do not compose. Free arrows are generated freely from SPro but the strength 
is generated co-freely from Pro. This provides an explanation for the difficulty in defining 
a free arrow over an arbitrary (weak) profunctor. 



8 On Functors Between Monoidal Categories 

Monads, applicatives and arrows have been introduced as monoids in monoidal categories. 
Now we ask what is the relation between these monoidal categories. It is well-known that 
from a monad it can be derived both an applicative functor and an arrow. In this section we 
explain these and other derivations from the point of view of monoidal categories. 

For example, in order to obtain a pre-arrow from a monad, we are interested in creating 
a monoid in Pro, given a monoid in End Q . Instead of trying to make up a monoid in Pro 
directly, we will define a monoidal functor between the underlying monoidal categories (in 
this case End 0 and Pro), and then use the following theorem to obtain a functor between 
the corresponding monoids. 

Theorem 8.1 

Let (F, (j), rj) : — ► *3 be a lax monoidal functor. If (M,m,e) is a monoid in then 
(FM, Fm o 0 , Fe o 77 ) is a monoid in '3. 

The above construction extends to a functor, and therefore we can induce functors between 
monoids by way of lax monoidal functors between their underlying monoidal categories. 



8.1 The Cayley Functor 

Applicative functors can be used to create arrows, here we present a monoidal functor that 
gives rise to such construction. We consider the Cayley functor ( |Pastro & Street, 2 008 ) 

C: End* -> SPro 

defined by 

C{F)(X,Y) =F(Y X ) 

Despite its name, this functor bears no direct relation with the Cayley representation. 
Proposition 8.2 

The Cayley functor is monoidal from End* to Pro. 



Not only this functor is monoidal but also, for each C(F), we can define a strength. This 
extends C into a monoidal functor from End* to SPro. 
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The resulting construction is the static arrow over (—>•), augmented with the original 
applicative ( |McBride & Paterson, 2008| >. 

data Cay ley / xy = Cayley (f (x — > y)) 

For every applicative functor, the Cayley functor constructs an arrow. 

instance Applicative/ => PreArrow (Cayley/) where 
arr/ = Cayley (pure/) 

(Cayley x) ^> (Cayley y) = Cayley (pure (o) ®y®x) 

instance Applicative/ =>■ StrongProfunctor (Cayley/) where 

first (Cayley x) = Cayley (pure (A/ — > X(b,d) — > (f b,d)) ®x) 

instance Applicative/ =>• Arrow (Cayley/) 



8.2 The Kleisli Functor 

The well-known Kleisli category of a monad gives rise to a monoidal functor from monads 
to arrows. We consider the functor 

K : Endo ^ SPro 

defined by 

K(F)(X,Y) = (F(Y)f 

The implementation of the Kleisli functor is as follows. 

data Kleisli/xy = Kleisli (jc — >fy) 

instance Monad/ => PreArrow (Kleisli/) where 
arr/ = Kleisli (Ax — > return (fx)) 

(Kleisli/) ^> (Kleisli g) = Kleisli (Ax -)•/ x^=g) 

instance Monad/ => StrongProfunctor (Kleisli/) where 

first (Kleisli/) = Kleisli (X(b,d) -^fby-^Xc return {c,d)) 

instance Monad/ => Arrow (Kleisli/) 



8.3 The Identity Functor 

The identity endofunctor on [Set, Set] can be given a monoidal compatibility morphisms 
Tj and 0 such that it becomes a lax monoidal functor from End 0 to End*. The 77 morphism 
is the identity on the identity functor. The morphism (ppQ :F*G^?FoG is given by: 

(F*G){A)=FCxGDxA ( > CxD '> lUf(Cx(GDx,4( Cx0 ')) 

Fst 

► F(G(C xDx A< CxD ')) 

F(Gev) 
> F(GA) 
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Hence, we obtain a lax monoidal functor Id : End 0 — > End*. 



By applying Theorem 


8 . 1 1 to Id, we obtain the well-known result that every monad 


is an applicative functor. 




instance Monad/ => 


Applicative/ where 


pure = return 




f®x=f>^{Xg~ 


■> x y&= return og) 



8.4 The Reversed Monoid 

For every monoidal category ^ = (^ ,a,X,p), the opposite monoidal category ^®o P 
can be defined, with the monoidal operator A<E> op B = B <E> A. Given a monoid in a 
monoid in ^®op can be defined. 

Theorem 8.3 

If (M,m,e) is a monoid in then (M,m,e) is a monoid in ^®op. 

In the case where the monoidal structure is symmetric, there is an isomorphism between 
A® op B and A <8> B. Using this isomorphism, a monoidal structure can be given to the 
identity endofunctor over c ia, giving a monoidal functor from ^ to . 

Theorem 8.4 

Let If® = {'if, <3,I, a, A, p, y) be a symmetric monoidal category, then we have a monoidal 
functor (Id, 7, id) : tf® -> ^op. 

If we apply Theorem 18. II to a monoid M in ^g, we obtain a monoid in %^pp. From 
Theorem [83] this monoid can be converted to a monoid in ^f g . This last monoid is what 
we call the reversed monoid ofM. 

As already mentioned, End* is a symmetric monoidal category, and therefore the reverse 
monoid construction can be applied to a monoid in End*. The resulting monoid is known 
as the reversed applicative ( |Bird et ah, 2013( l. 



The reversed applicative is implemented as: 

data Rev/x = Rev (fx) deriving Functor 

instance Applicative/ =>■ Applicative (Rev/) where 
pure = Revo pure 

Rev/© Revx = Rev (pure (flip ($)) ®x®f) 

In intuitive terms, the difference between / and Rev/ as applicative functors is that 
Rev/ sequences the order of effects in the opposite order ( |Bird et al., 2013| ). 



9 Conclusion 



We have seen how monads, applicative functors and arrows can be cast as monoids in a 
monoidal category. We exploited this uniformity in order to obtain free constructions and 



ZU064-05-FPR main 19 June 2014 0:23 



36 E. Rivas and M. Jaskelioff 

representations for the three notions of computation. We have provided Haskell code for 
all of the concepts, showing that the ideas can be readily implemented without difficulty. 
The representations for applicative functors and arrows are new and they optimise code 
in the same cases the codensity transformation and difference lists work well: when the 
binary operation of the monoid is expensive on its first argument and therefore, we want to 
associate a sequence of computations to the right. In order to prove this formally, we could 
adopt the framework of Hackett and Hutton (12.014b . 

The constructions presented for monads are well known ( |Mac Lane, 1971| ). Day has 
shown the equivalence of lax monoidal functors and monoids with respect to the Day 



convolution (Day, 19701. However, in the functional programming community, this fact 
is not well-known. The construction of free applicatives is described by Capriotti and 
Kaposi (12.014b . While they provide plenty of motivation for the use of the free applicative 
functor, we give a detailed description of its origin, as we arrive at it instantiating a general 
description of free monoids to the category of endofunctors which is monoidal with respect 
to the Day convolution. 

There are several works analysing the formulation of arrows as monoids ^Jacobs et al, 20091 
Atkey, 20 llj |Asada, 20101 |Asada & Hasuo, 2010) . We differentiate from their work in 
our treatment of the strength. We believe our approach leads to simpler definitions, as 
only standard monoidal categories are used. Moreover, our definition of the free arrow is 
possible thanks to this simpler approach. 

Jaskelioff and Moggi ( 1201 Oi l use the Cayley representation for monoids in a monoidal 
category in order to lift operations through monoid transformers. However, the only in- 
stances considered are monads. 

For simplicity, we analysed the above notions of computations as Set functors. How- 
ever, for size reasons, many constructions were restricted to small functors, which are 
extensions of functors from small categories. Alternatively, we could have worked with 



accessible functors (Adamek& Rosicky, 19941 (which are equivalent to small functors), 



or we could have worked directly with functors from small categories, as it is done in 
relative monads (A ltenkirch et al, 2010[ ). However, by working with small functors the 
category theory is less heavy and the implementation in Haskell is more direct. 

In functional programming, for each of the three notions of computation that we con- 
sidered, there are variants which add structure. For example, monads can be extended with 
MonadPlus, applicative functors with Alternative, and arrows with ArrowChoice, to name 
just a few. It would be interesting to analyse the relation between the different extensions 
from the point of view of monoidal categories with extra structure. 

Unifying different concepts under one common framework is a worthy goal as it deepens 
our understanding and it allows us to relate, compare, and translate ideas. It has long been 



recognised that category theory is an ideal tool for this task (Reynolds, 1980 1 and this 
article provides a bit more evidence of it. 
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